home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
013a
/
unikeyg.zip
/
TESTE.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-04-07
|
169b
|
7 lines
5 LPRINT CHR$(27)"x1";CHR$(27)"t"CHR$(1)CHR$(27)"5"
10 FOR I=32 TO 255
20 LPRINT I;"-";CHR$(I);
30 IF INT(I/10)*10=I THEN LPRINT
40 NEXT I
50 LPRINT CHR$(12)